home *** CD-ROM | disk | FTP | other *** search
/ Software Club 1 / Club Software (Micro Star) (1996).iso / career / insightd.cla < prev    next >
Encoding:
Text File  |  1995-07-11  |  3.2 KB  |  108 lines
  1. INSIGHTD     PROGRAM
  2.          INCLUDE('STD_KEYS.CLA')
  3.          INCLUDE('CTL_KEYS.CLA')
  4.          INCLUDE('ALT_KEYS.CLA')
  5.          INCLUDE('SHF_KEYS.CLA')
  6.  
  7. REJECT_KEY   EQUATE(CTRL_ESC)
  8. ACCEPT_KEY   EQUATE(CTRL_ENTER)
  9. TRUE         EQUATE(1)
  10. FALSE         EQUATE(0)
  11.  
  12.          MAP
  13.            PROC(G_OPENFILES)
  14.            MODULE('INSIGHT1')
  15.          PROC(START)             !MAIN MENU
  16.            .
  17.            MODULE('INSIGHT2')
  18.          PROC(NAME_TABLE)         !Company Name
  19.            .
  20.            MODULE('INSIGHT3')
  21.          PROC(DATE_TABLE)         !Interview Date
  22.            .
  23.            MODULE('INSIGHT4')
  24.          PROC(INFORMAL_TAB)         !Informational Interview
  25.            .
  26.            MODULE('INSIGHT5')
  27.          PROC(INFO_FORM)         !Data form
  28.            .
  29.            MODULE('INSIGHT6')
  30.          PROC(RESUME_TABLE)         !Resume/Letter Table
  31.            .
  32.            MODULE('INSIGHT7')
  33.          PROC(INFO_REPORT)         !Information Report
  34.            .
  35.          .
  36.          EJECT('FILE LAYOUTS')
  37. INSDATA         FILE,PRE(INS),CREATE,RECLAIM
  38. COMPANY_KEY    KEY(INS:COMPANY),DUP,NOCASE,OPT
  39. DATE_KEY       KEY(INS:DATE,INS:COMPANY),DUP,NOCASE,OPT
  40. CONTACT_KEY    KEY(INS:CONTACT),DUP,NOCASE,OPT
  41. RECORD           RECORD
  42. TYPE         STRING(14)             !Type of Record
  43. DATE         DECIMAL(8,0)             !Date
  44. SOURCE_         STRING(24)             !Source of Information
  45. COMPANY         STRING(24)
  46. CONTACT         STRING(24)
  47. PHONE         DECIMAL(10,0)
  48. ADDRESS         STRING(24)
  49. CITY         STRING(20)
  50. ZIP         DECIMAL(10,0)
  51. LEARNED         STRING(58)             !What I learned
  52. IMPROVE         STRING(58)             !What I can Inprove
  53. FEEDBACK     STRING(58)             !Favorable Feedback
  54. REF_1         STRING(58)             !Referred to
  55. REF_2         STRING(58)             !Referred to.
  56. REF_3         STRING(58)             !Referred to
  57. THANK_YOU     STRING(3)             !Thank you letter sent
  58. FOLLOW_UP     STRING(58)             !Follow up strategy
  59.          . .
  60.  
  61.          EJECT('GLOBAL MEMORY VARIABLES')
  62. ACTION         SHORT                 !0 = NO ACTION
  63.                          !1 = ADD RECORD
  64.                          !2 = CHANGE RECORD
  65.                          !3 = DELETE RECORD
  66.                          !4 = LOOKUP FIELD
  67.          GROUP,PRE(MEM)
  68. MESSAGE           STRING(30)             !Global Message Area
  69. PAGE           SHORT                 !Report Page Number
  70. LINE           SHORT                 !Report Line Number
  71. DEVICE           STRING(30)             !Report Device Name
  72. COMPANY           STRING(24)             !Customer name
  73.          .
  74.  
  75.          EJECT('CODE SECTION')
  76.   CODE
  77.   SETHUE(7,0)                     !SET WHITE ON BLACK
  78.   BLANK                         !  AND BLANK
  79.   HELP('INSHELP.HLP')                 !OPEN THE HELP FILE
  80.   G_OPENFILES                     !OPEN OR CREATE FILES
  81.   SETHUE()                     !    THE SCREEN
  82.   START                         !MAIN MENU
  83.   RETURN                     !EXIT TO DOS
  84.  
  85. G_OPENFILES  PROCEDURE                 !OPEN FILES & CHECK FOR ERROR
  86.   CODE
  87.   SHOW(25,1,CENTER('OPENING FILE: ' & 'INSDATA',80)) !DISPLAY FILE NAME
  88.   OPEN(INSDATA)                     !OPEN THE FILE
  89.   IF ERROR()                     !OPEN RETURNED AN ERROR
  90.     CASE ERRORCODE()                 ! CHECK FOR SPECIFIC ERROR
  91.     OF 46                     !  KEYS NEED TO BE REQUILT
  92.       SETHUE(0,7)                 !  BLACK ON WHITE
  93.       SHOW(25,1,CENTER('REBUILDING KEY FILES FOR INSDATA',80)) !INDICATE MSG
  94.       BUILD(INSDATA)                 !  CALL THE BUILD PROCEDURE
  95.       SETHUE(7,0)                 !  WHITE ON BLACK
  96.       BLANK(25,1,1,80)                 !  BLANK THE MESSAGE
  97.     OF 2                     !IF NOT FOUND,
  98.       CREATE(INSDATA)                 ! CREATE
  99.     ELSE                     ! ANY OTHER ERROR
  100.       LOOP                     !  STOP EXECUTION
  101.     STOP('Cannot Open INSDATA - Error: ' & ERROR())
  102.       .
  103.   . .
  104.  
  105.   BLANK                         !BLANK THE SCREEN
  106.  
  107.  
  108.